Delphi Informant Complete 1995 - 2000/Delphi Informant Complete 1995 to 2000.iso/Delphi Informant Magazine Complete Works SOURCE CODE 1998.rar/1998/Feb/di9802kw/WPLoad1.dfm/WPLoad1.txt

Text File | 1997-08-21 | 5KB | 173 lines

object frmLoadWebPics: TfrmLoadWebPics
  Left = 200
  Top = 108
  Width = 396
  Height = 350
  Caption = 'Load Web Pictures'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 3
    Top = 135
    Width = 53
    Height = 13
    Alignment = taRightJustify
    Caption = '&Description'
    FocusControl = edtDescription
  end
  object dbgWebPics: TDBGrid
    Left = 4
    Top = 160
    Width = 299
    Height = 157
    DataSource = dtsWebPics
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object btnInsert: TBitBtn
    Left = 308
    Top = 36
    Width = 75
    Height = 25
    Caption = '&Insert'
    Enabled = False
    TabOrder = 7
    OnClick = btnInsertClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
      333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
      0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
      07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
      07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
      0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
      33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
      B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
      3BB33773333773333773B333333B3333333B7333333733333337}
    NumGlyphs = 2
  end
  object flbFiles: TFileListBox
    Left = 4
    Top = 4
    Width = 145
    Height = 97
    ItemHeight = 13
    Mask = '*.jpg;*.jpeg'
    TabOrder = 0
    OnChange = flbFilesChange
  end
  object dlbDirectories: TDirectoryListBox
    Left = 156
    Top = 4
    Width = 145
    Height = 97
    FileList = flbFiles
    ItemHeight = 16
    TabOrder = 2
  end
  object drvDrives: TDriveComboBox
    Left = 156
    Top = 104
    Width = 145
    Height = 19
    DirList = dlbDirectories
    TabOrder = 3
  end
  object fltFilter: TFilterComboBox
    Left = 4
    Top = 104
    Width = 145
    Height = 21
    FileList = flbFiles
    Filter = 'JPEG pictures|*.jpg;*.jpeg|GIF pictures|*.gif|All files|*.*'
    TabOrder = 1
  end
  object edtDescription: TEdit
    Left = 60
    Top = 132
    Width = 181
    Height = 21
    TabOrder = 4
    OnChange = flbFilesChange
  end
  object btnClose: TBitBtn
    Left = 308
    Top = 4
    Width = 75
    Height = 25
    TabOrder = 6
    OnClick = btnCloseClick
    Kind = bkClose
  end
  object btnDelete: TBitBtn
    Left = 308
    Top = 68
    Width = 75
    Height = 25
    Caption = '&Delete'
    TabOrder = 8
    OnClick = btnDeleteClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333FF3333333333333003333333333333377F33333333333307
      733333FFF333337773333C003333307733333777FF333777FFFFC0CC03330770
      000077777FF377777777C033C03077FFFFF077FF77F777FFFFF7CC00000F7777
      777077777777777777773CCCCC00000000003777777777777777333330030FFF
      FFF03333F77F7F3FF3F7333C0C030F00F0F03337777F7F77373733C03C030FFF
      FFF03377F77F7F3F333733C03C030F0FFFF03377F7737F733FF733C000330FFF
      0000337777F37F3F7777333CCC330F0F0FF0333777337F737F37333333330FFF
      0F03333333337FFF7F7333333333000000333333333377777733}
    NumGlyphs = 2
  end
  object tblWebPics: TTable
    Active = True
    DatabaseName = 'WebPics'
    TableName = 'WebPics.db'
    Left = 36
    Top = 276
    object tblWebPicsPicture_no: TAutoIncField
      DisplayLabel = 'Id'
      DisplayWidth = 3
      FieldName = 'Picture_no'
    end
    object tblWebPicsPicture_text: TStringField
      DisplayLabel = 'Name'
      DisplayWidth = 30
      FieldName = 'Picture_text'
      Size = 30
    end
    object tblWebPicsPicture_type: TStringField
      DisplayLabel = 'MIME type'
      DisplayWidth = 9
      FieldName = 'Picture_type'
      Size = 30
    end
    object tblWebPicsPicture_blob: TBlobField
      FieldName = 'Picture_blob'
      Visible = False
      BlobType = ftBlob
    end
  end
  object dtsWebPics: TDataSource
    DataSet = tblWebPics
    OnDataChange = dtsWebPicsDataChange
    Left = 68
    Top = 276
  end
end